home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / programr / ptrp25dm.zip / TEST15.TRP < prev    next >
Text File  |  1995-01-17  |  506b  |  19 lines
  1. procedure main
  2. var
  3.         i : integer = 9;
  4. endvar
  5.         switch i 
  6.                 case 1 : writeln('Varaible is 1')
  7.                 endCase
  8.                 case 3 : writeln('Variable is 3')
  9.                 endCase
  10.                 case 5 : writeln('Variable is 5')
  11.                 endCase
  12.                 case 7 : writeln('Variable is 7')
  13.                 endCase
  14.                 else
  15.                         writeln('Non of the above')
  16.                 endCase
  17.         endSwitch
  18. endproc
  19.